/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacPerl 4.13 tool.sit / Perl Tool ƒ / t / io / fs.t

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 04 66 73 2e 74 00 00 | 00 00 00 00 00 00 00 00 |..fs.t..|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0c 27 00 | 00 01 ac a8 ee 6f a0 a8 |......'.|.....o..|
|00000060| ee 6f a0 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.o......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 43 a8 00 00 |........|....C...|
|00000080| 23 21 2e 2f 70 65 72 6c | 0d 0d 23 20 24 52 43 53 |#!./perl|..# $RCS|
|00000090| 66 69 6c 65 3a 20 66 73 | 2e 74 2c 76 20 24 24 52 |file: fs|.t,v $$R|
|000000a0| 65 76 69 73 69 6f 6e 3a | 20 34 2e 30 2e 31 2e 31 |evision:| 4.0.1.1|
|000000b0| 20 24 24 44 61 74 65 3a | 20 31 39 39 33 2f 30 32 | $$Date:| 1993/02|
|000000c0| 2f 30 35 20 31 39 3a 34 | 34 3a 33 34 20 24 0d 0d |/05 19:4|4:34 $..|
|000000d0| 70 72 69 6e 74 20 22 31 | 2e 2e 32 32 5c 6e 22 3b |print "1|..22\n";|
|000000e0| 0d 0d 24 77 64 20 3d 20 | 60 64 69 72 65 63 74 6f |..$wd = |`directo|
|000000f0| 72 79 60 3b 0d 63 68 6f | 70 28 24 77 64 29 3b 0d |ry`;.cho|p($wd);.|
|00000100| 0d 60 44 65 6c 65 74 65 | 20 2d 79 20 74 6d 70 b3 |.`Delete| -y tmp.|
|00000110| 44 65 76 3a 4e 75 6c 6c | 3b 20 4e 65 77 46 6f 6c |Dev:Null|; NewFol|
|00000120| 64 65 72 20 74 6d 70 b3 | 44 65 76 3a 4e 75 6c 6c |der tmp.|Dev:Null|
|00000130| 60 3b 0d 63 68 64 69 72 | 20 27 3a 74 6d 70 27 3b |`;.chdir| ':tmp';|
|00000140| 0d 60 64 65 6c 65 74 65 | 20 2d 79 20 61 20 62 20 |.`delete| -y a b |
|00000150| 63 20 78 60 3b 0d 0d 23 | 20 75 6d 61 73 6b 28 30 |c x`;..#| umask(0|
|00000160| 32 32 29 3b 0d 0d 23 20 | 69 66 20 28 28 75 6d 61 |22);..# |if ((uma|
|00000170| 73 6b 28 30 29 26 30 37 | 37 37 29 20 3d 3d 20 30 |sk(0)&07|77) == 0|
|00000180| 32 32 29 20 7b 70 72 69 | 6e 74 20 22 6f 6b 20 31 |22) {pri|nt "ok 1|
|00000190| 5c 6e 22 3b 7d 20 65 6c | 73 65 20 7b 70 72 69 6e |\n";} el|se {prin|
|000001a0| 74 20 22 6e 6f 74 20 6f | 6b 20 31 5c 6e 22 3b 7d |t "not o|k 1\n";}|
|000001b0| 0d 6f 70 65 6e 28 66 68 | 2c 27 3e 78 27 29 20 7c |.open(fh|,'>x') ||
|000001c0| 7c 20 64 69 65 20 22 43 | 61 6e 27 74 20 63 72 65 || die "C|an't cre|
|000001d0| 61 74 65 20 78 22 3b 0d | 63 6c 6f 73 65 28 66 68 |ate x";.|close(fh|
|000001e0| 29 3b 0d 6f 70 65 6e 28 | 66 68 2c 27 3e 61 27 29 |);.open(|fh,'>a')|
|000001f0| 20 7c 7c 20 64 69 65 20 | 22 43 61 6e 27 74 20 63 | || die |"Can't c|
|00000200| 72 65 61 74 65 20 61 22 | 3b 0d 63 6c 6f 73 65 28 |reate a"|;.close(|
|00000210| 66 68 29 3b 0d 0d 69 66 | 20 28 73 79 6d 6c 69 6e |fh);..if| (symlin|
|00000220| 6b 28 27 61 27 2c 27 62 | 27 29 29 20 7b 70 72 69 |k('a','b|')) {pri|
|00000230| 6e 74 20 22 6f 6b 20 32 | 5c 6e 22 3b 7d 20 65 6c |nt "ok 2|\n";} el|
|00000240| 73 65 20 7b 70 72 69 6e | 74 20 22 6e 6f 74 20 6f |se {prin|t "not o|
|00000250| 6b 20 32 5c 6e 22 3b 7d | 0d 0d 69 66 20 28 73 79 |k 2\n";}|..if (sy|
|00000260| 6d 6c 69 6e 6b 28 27 62 | 27 2c 27 63 27 29 29 20 |mlink('b|','c')) |
|00000270| 7b 70 72 69 6e 74 20 22 | 6f 6b 20 33 5c 6e 22 3b |{print "|ok 3\n";|
|00000280| 7d 20 65 6c 73 65 20 7b | 70 72 69 6e 74 20 22 6e |} else {|print "n|
|00000290| 6f 74 20 6f 6b 20 33 5c | 6e 22 3b 7d 0d 0d 28 24 |ot ok 3\|n";}..($|
|000002a0| 64 65 76 2c 24 69 6e 6f | 2c 24 6d 6f 64 65 2c 24 |dev,$ino|,$mode,$|
|000002b0| 6e 6c 69 6e 6b 2c 24 75 | 69 64 2c 24 67 69 64 2c |nlink,$u|id,$gid,|
|000002c0| 24 72 64 65 76 2c 24 73 | 69 7a 65 2c 24 61 74 69 |$rdev,$s|ize,$ati|
|000002d0| 6d 65 2c 24 6d 74 69 6d | 65 2c 24 63 74 69 6d 65 |me,$mtim|e,$ctime|
|000002e0| 2c 0d 20 20 24 62 6c 6b | 73 69 7a 65 2c 24 62 6c |,.  $blk|size,$bl|
|000002f0| 6f 63 6b 73 29 20 3d 20 | 73 74 61 74 28 27 63 27 |ocks) = |stat('c'|
|00000300| 29 3b 0d 0d 23 20 69 66 | 20 28 24 6e 6c 69 6e 6b |);..# if| ($nlink|
|00000310| 20 3d 3d 20 33 29 20 7b | 70 72 69 6e 74 20 22 6f | == 3) {|print "o|
|00000320| 6b 20 34 5c 6e 22 3b 7d | 20 65 6c 73 65 20 7b 70 |k 4\n";}| else {p|
|00000330| 72 69 6e 74 20 22 6e 6f | 74 20 6f 6b 20 34 5c 6e |rint "no|t ok 4\n|
|00000340| 22 3b 7d 0d 23 20 69 66 | 20 28 28 24 6d 6f 64 65 |";}.# if| (($mode|
|00000350| 20 26 20 30 37 37 37 29 | 20 3d 3d 20 30 36 36 36 | & 0777)| == 0666|
|00000360| 29 20 7b 70 72 69 6e 74 | 20 22 6f 6b 20 35 5c 6e |) {print| "ok 5\n|
|00000370| 22 3b 7d 20 65 6c 73 65 | 20 7b 70 72 69 6e 74 20 |";} else| {print |
|00000380| 22 6e 6f 74 20 6f 6b 20 | 35 5c 6e 22 3b 7d 0d 0d |"not ok |5\n";}..|
|00000390| 23 20 69 66 20 28 28 63 | 68 6d 6f 64 20 30 37 37 |# if ((c|hmod 077|
|000003a0| 37 2c 27 61 27 29 20 3d | 3d 20 31 29 20 7b 70 72 |7,'a') =|= 1) {pr|
|000003b0| 69 6e 74 20 22 6f 6b 20 | 36 5c 6e 22 3b 7d 20 65 |int "ok |6\n";} e|
|000003c0| 6c 73 65 20 7b 70 72 69 | 6e 74 20 22 6e 6f 74 20 |lse {pri|nt "not |
|000003d0| 6f 6b 20 36 5c 6e 22 3b | 7d 0d 0d 23 20 28 24 64 |ok 6\n";|}..# ($d|
|000003e0| 65 76 2c 24 69 6e 6f 2c | 24 6d 6f 64 65 2c 24 6e |ev,$ino,|$mode,$n|
|000003f0| 6c 69 6e 6b 2c 24 75 69 | 64 2c 24 67 69 64 2c 24 |link,$ui|d,$gid,$|
|00000400| 72 64 65 76 2c 24 73 69 | 7a 65 2c 24 61 74 69 6d |rdev,$si|ze,$atim|
|00000410| 65 2c 24 6d 74 69 6d 65 | 2c 24 63 74 69 6d 65 2c |e,$mtime|,$ctime,|
|00000420| 0d 23 20 20 20 20 24 62 | 6c 6b 73 69 7a 65 2c 24 |.#    $b|lksize,$|
|00000430| 62 6c 6f 63 6b 73 29 20 | 3d 20 73 74 61 74 28 27 |blocks) |= stat('|
|00000440| 63 27 29 3b 0d 23 20 69 | 66 20 28 28 24 6d 6f 64 |c');.# i|f (($mod|
|00000450| 65 20 26 20 30 37 37 37 | 29 20 3d 3d 20 30 37 37 |e & 0777|) == 077|
|00000460| 37 29 20 7b 70 72 69 6e | 74 20 22 6f 6b 20 37 5c |7) {prin|t "ok 7\|
|00000470| 6e 22 3b 7d 20 65 6c 73 | 65 20 7b 70 72 69 6e 74 |n";} els|e {print|
|00000480| 20 22 6e 6f 74 20 6f 6b | 20 37 5c 6e 22 3b 7d 0d | "not ok| 7\n";}.|
|00000490| 0d 23 20 69 66 20 28 28 | 63 68 6d 6f 64 20 30 37 |.# if ((|chmod 07|
|000004a0| 30 30 2c 27 63 27 2c 27 | 78 27 29 20 3d 3d 20 32 |00,'c','|x') == 2|
|000004b0| 29 20 7b 70 72 69 6e 74 | 20 22 6f 6b 20 38 5c 6e |) {print| "ok 8\n|
|000004c0| 22 3b 7d 20 65 6c 73 65 | 20 7b 70 72 69 6e 74 20 |";} else| {print |
|000004d0| 22 6e 6f 74 20 6f 6b 20 | 38 5c 6e 22 3b 7d 0d 0d |"not ok |8\n";}..|
|000004e0| 23 20 28 24 64 65 76 2c | 24 69 6e 6f 2c 24 6d 6f |# ($dev,|$ino,$mo|
|000004f0| 64 65 2c 24 6e 6c 69 6e | 6b 2c 24 75 69 64 2c 24 |de,$nlin|k,$uid,$|
|00000500| 67 69 64 2c 24 72 64 65 | 76 2c 24 73 69 7a 65 2c |gid,$rde|v,$size,|
|00000510| 24 61 74 69 6d 65 2c 24 | 6d 74 69 6d 65 2c 24 63 |$atime,$|mtime,$c|
|00000520| 74 69 6d 65 2c 0d 23 20 | 20 20 20 20 24 62 6c 6b |time,.# |    $blk|
|00000530| 73 69 7a 65 2c 24 62 6c | 6f 63 6b 73 29 20 3d 20 |size,$bl|ocks) = |
|00000540| 73 74 61 74 28 27 63 27 | 29 3b 0d 23 20 69 66 20 |stat('c'|);.# if |
|00000550| 28 28 24 6d 6f 64 65 20 | 26 20 30 37 37 37 29 20 |(($mode |& 0777) |
|00000560| 3d 3d 20 30 37 30 30 29 | 20 7b 70 72 69 6e 74 20 |== 0700)| {print |
|00000570| 22 6f 6b 20 39 5c 6e 22 | 3b 7d 20 65 6c 73 65 20 |"ok 9\n"|;} else |
|00000580| 7b 70 72 69 6e 74 20 22 | 6e 6f 74 20 6f 6b 20 39 |{print "|not ok 9|
|00000590| 5c 6e 22 3b 7d 0d 23 20 | 28 24 64 65 76 2c 24 69 |\n";}.# |($dev,$i|
|000005a0| 6e 6f 2c 24 6d 6f 64 65 | 2c 24 6e 6c 69 6e 6b 2c |no,$mode|,$nlink,|
|000005b0| 24 75 69 64 2c 24 67 69 | 64 2c 24 72 64 65 76 2c |$uid,$gi|d,$rdev,|
|000005c0| 24 73 69 7a 65 2c 24 61 | 74 69 6d 65 2c 24 6d 74 |$size,$a|time,$mt|
|000005d0| 69 6d 65 2c 24 63 74 69 | 6d 65 2c 0d 23 20 20 20 |ime,$cti|me,.#   |
|000005e0| 20 20 24 62 6c 6b 73 69 | 7a 65 2c 24 62 6c 6f 63 |  $blksi|ze,$bloc|
|000005f0| 6b 73 29 20 3d 20 73 74 | 61 74 28 27 78 27 29 3b |ks) = st|at('x');|
|00000600| 0d 23 20 69 66 20 28 28 | 24 6d 6f 64 65 20 26 20 |.# if ((|$mode & |
|00000610| 30 37 37 37 29 20 3d 3d | 20 30 37 30 30 29 20 7b |0777) ==| 0700) {|
|00000620| 70 72 69 6e 74 20 22 6f | 6b 20 31 30 5c 6e 22 3b |print "o|k 10\n";|
|00000630| 7d 20 65 6c 73 65 20 7b | 70 72 69 6e 74 20 22 6e |} else {|print "n|
|00000640| 6f 74 20 6f 6b 20 31 30 | 5c 6e 22 3b 7d 0d 0d 69 |ot ok 10|\n";}..i|
|00000650| 66 20 28 28 75 6e 6c 69 | 6e 6b 20 27 78 27 29 20 |f ((unli|nk 'x') |
|00000660| 3d 3d 20 31 29 20 7b 70 | 72 69 6e 74 20 22 6f 6b |== 1) {p|rint "ok|
|00000670| 20 31 31 5c 6e 22 3b 7d | 20 65 6c 73 65 20 7b 70 | 11\n";}| else {p|
|00000680| 72 69 6e 74 20 22 6e 6f | 74 20 6f 6b 20 31 31 5c |rint "no|t ok 11\|
|00000690| 6e 22 3b 7d 0d 23 20 28 | 24 64 65 76 2c 24 69 6e |n";}.# (|$dev,$in|
|000006a0| 6f 2c 24 6d 6f 64 65 2c | 24 6e 6c 69 6e 6b 2c 24 |o,$mode,|$nlink,$|
|000006b0| 75 69 64 2c 24 67 69 64 | 2c 24 72 64 65 76 2c 24 |uid,$gid|,$rdev,$|
|000006c0| 73 69 7a 65 2c 24 61 74 | 69 6d 65 2c 24 6d 74 69 |size,$at|ime,$mti|
|000006d0| 6d 65 2c 24 63 74 69 6d | 65 2c 0d 23 20 20 20 20 |me,$ctim|e,.#    |
|000006e0| 20 24 62 6c 6b 73 69 7a | 65 2c 24 62 6c 6f 63 6b | $blksiz|e,$block|
|000006f0| 73 29 20 3d 20 73 74 61 | 74 28 27 62 27 29 3b 0d |s) = sta|t('b');.|
|00000700| 23 20 69 66 20 28 24 69 | 6e 6f 20 3d 3d 20 30 29 |# if ($i|no == 0)|
|00000710| 20 7b 70 72 69 6e 74 20 | 22 6f 6b 20 31 32 5c 6e | {print |"ok 12\n|
|00000720| 22 3b 7d 20 65 6c 73 65 | 20 7b 70 72 69 6e 74 20 |";} else| {print |
|00000730| 22 6e 6f 74 20 6f 6b 20 | 31 32 5c 6e 22 3b 7d 0d |"not ok |12\n";}.|
|00000740| 28 24 64 65 76 2c 24 69 | 6e 6f 2c 24 6d 6f 64 65 |($dev,$i|no,$mode|
|00000750| 2c 24 6e 6c 69 6e 6b 2c | 24 75 69 64 2c 24 67 69 |,$nlink,|$uid,$gi|
|00000760| 64 2c 24 72 64 65 76 2c | 24 73 69 7a 65 2c 24 61 |d,$rdev,|$size,$a|
|00000770| 74 69 6d 65 2c 24 6d 74 | 69 6d 65 2c 24 63 74 69 |time,$mt|ime,$cti|
|00000780| 6d 65 2c 0d 20 20 20 20 | 24 62 6c 6b 73 69 7a 65 |me,.    |$blksize|
|00000790| 2c 24 62 6c 6f 63 6b 73 | 29 20 3d 20 73 74 61 74 |,$blocks|) = stat|
|000007a0| 28 27 78 27 29 3b 0d 69 | 66 20 28 24 69 6e 6f 20 |('x');.i|f ($ino |
|000007b0| 3d 3d 20 30 29 20 7b 70 | 72 69 6e 74 20 22 6f 6b |== 0) {p|rint "ok|
|000007c0| 20 31 33 5c 6e 22 3b 7d | 20 65 6c 73 65 20 7b 70 | 13\n";}| else {p|
|000007d0| 72 69 6e 74 20 22 6e 6f | 74 20 6f 6b 20 31 33 5c |rint "no|t ok 13\|
|000007e0| 6e 22 3b 7d 0d 0d 69 66 | 20 28 72 65 6e 61 6d 65 |n";}..if| (rename|
|000007f0| 28 27 61 27 2c 27 62 27 | 29 29 20 7b 70 72 69 6e |('a','b'|)) {prin|
|00000800| 74 20 22 6f 6b 20 31 34 | 5c 6e 22 3b 7d 20 65 6c |t "ok 14|\n";} el|
|00000810| 73 65 20 7b 70 72 69 6e | 74 20 22 6e 6f 74 20 6f |se {prin|t "not o|
|00000820| 6b 20 31 34 5c 6e 22 3b | 7d 0d 28 24 64 65 76 2c |k 14\n";|}.($dev,|
|00000830| 24 69 6e 6f 2c 24 6d 6f | 64 65 2c 24 6e 6c 69 6e |$ino,$mo|de,$nlin|
|00000840| 6b 2c 24 75 69 64 2c 24 | 67 69 64 2c 24 72 64 65 |k,$uid,$|gid,$rde|
|00000850| 76 2c 24 73 69 7a 65 2c | 24 61 74 69 6d 65 2c 24 |v,$size,|$atime,$|
|00000860| 6d 74 69 6d 65 2c 24 63 | 74 69 6d 65 2c 0d 20 20 |mtime,$c|time,.  |
|00000870| 20 20 24 62 6c 6b 73 69 | 7a 65 2c 24 62 6c 6f 63 |  $blksi|ze,$bloc|
|00000880| 6b 73 29 20 3d 20 73 74 | 61 74 28 27 61 27 29 3b |ks) = st|at('a');|
|00000890| 0d 69 66 20 28 24 69 6e | 6f 20 3d 3d 20 30 29 20 |.if ($in|o == 0) |
|000008a0| 7b 70 72 69 6e 74 20 22 | 6f 6b 20 31 35 5c 6e 22 |{print "|ok 15\n"|
|000008b0| 3b 7d 20 65 6c 73 65 20 | 7b 70 72 69 6e 74 20 22 |;} else |{print "|
|000008c0| 6e 6f 74 20 6f 6b 20 31 | 35 5c 6e 22 3b 7d 0d 23 |not ok 1|5\n";}.#|
|000008d0| 20 24 66 6f 6f 20 3d 20 | 28 75 74 69 6d 65 20 35 | $foo = |(utime 5|
|000008e0| 30 30 30 30 30 30 30 30 | 2c 35 30 30 30 30 30 30 |00000000|,5000000|
|000008f0| 30 31 2c 27 62 27 29 3b | 0d 23 20 69 66 20 28 24 |01,'b');|.# if ($|
|00000900| 66 6f 6f 20 3d 3d 20 31 | 29 20 7b 70 72 69 6e 74 |foo == 1|) {print|
|00000910| 20 22 6f 6b 20 31 36 5c | 6e 22 3b 7d 20 65 6c 73 | "ok 16\|n";} els|
|00000920| 65 20 7b 70 72 69 6e 74 | 20 22 6e 6f 74 20 6f 6b |e {print| "not ok|
|00000930| 20 31 36 20 24 66 6f 6f | 5c 6e 22 3b 7d 0d 28 24 | 16 $foo|\n";}.($|
|00000940| 64 65 76 2c 24 69 6e 6f | 2c 24 6d 6f 64 65 2c 24 |dev,$ino|,$mode,$|
|00000950| 6e 6c 69 6e 6b 2c 24 75 | 69 64 2c 24 67 69 64 2c |nlink,$u|id,$gid,|
|00000960| 24 72 64 65 76 2c 24 73 | 69 7a 65 2c 24 61 74 69 |$rdev,$s|ize,$ati|
|00000970| 6d 65 2c 24 6d 74 69 6d | 65 2c 24 63 74 69 6d 65 |me,$mtim|e,$ctime|
|00000980| 2c 0d 20 20 20 20 24 62 | 6c 6b 73 69 7a 65 2c 24 |,.    $b|lksize,$|
|00000990| 62 6c 6f 63 6b 73 29 20 | 3d 20 73 74 61 74 28 27 |blocks) |= stat('|
|000009a0| 62 27 29 3b 0d 69 66 20 | 28 24 69 6e 6f 29 20 7b |b');.if |($ino) {|
|000009b0| 70 72 69 6e 74 20 22 6f | 6b 20 31 37 5c 6e 22 3b |print "o|k 17\n";|
|000009c0| 7d 20 65 6c 73 65 20 7b | 70 72 69 6e 74 20 22 6e |} else {|print "n|
|000009d0| 6f 74 20 6f 6b 20 31 37 | 5c 6e 22 3b 7d 0d 69 66 |ot ok 17|\n";}.if|
|000009e0| 20 28 28 24 61 74 69 6d | 65 20 3d 3d 20 35 30 30 | (($atim|e == 500|
|000009f0| 30 30 30 30 30 30 20 26 | 26 20 24 6d 74 69 6d 65 |000000 &|& $mtime|
|00000a00| 20 3d 3d 20 35 30 30 30 | 30 30 30 30 31 29 20 7c | == 5000|00001) ||
|00000a10| 7c 20 24 77 64 20 3d 7e | 20 6d 23 2f 61 66 73 2f || $wd =~| m#/afs/|
|00000a20| 23 29 0d 20 20 20 20 7b | 70 72 69 6e 74 20 22 6f |#).    {|print "o|
|00000a30| 6b 20 31 38 5c 6e 22 3b | 7d 0d 65 6c 73 65 0d 20 |k 18\n";|}.else. |
|00000a40| 20 20 20 7b 70 72 69 6e | 74 20 22 6e 6f 74 20 6f |   {prin|t "not o|
|00000a50| 6b 20 31 38 20 24 61 74 | 69 6d 65 20 24 6d 74 69 |k 18 $at|ime $mti|
|00000a60| 6d 65 5c 6e 22 3b 7d 0d | 0d 69 66 20 28 28 75 6e |me\n";}.|.if ((un|
|00000a70| 6c 69 6e 6b 20 27 62 27 | 29 20 3d 3d 20 31 29 20 |link 'b'|) == 1) |
|00000a80| 7b 70 72 69 6e 74 20 22 | 6f 6b 20 31 39 5c 6e 22 |{print "|ok 19\n"|
|00000a90| 3b 7d 20 65 6c 73 65 20 | 7b 70 72 69 6e 74 20 22 |;} else |{print "|
|00000aa0| 6e 6f 74 20 6f 6b 20 31 | 39 5c 6e 22 3b 7d 0d 28 |not ok 1|9\n";}.(|
|00000ab0| 24 64 65 76 2c 24 69 6e | 6f 2c 24 6d 6f 64 65 2c |$dev,$in|o,$mode,|
|00000ac0| 24 6e 6c 69 6e 6b 2c 24 | 75 69 64 2c 24 67 69 64 |$nlink,$|uid,$gid|
|00000ad0| 2c 24 72 64 65 76 2c 24 | 73 69 7a 65 2c 24 61 74 |,$rdev,$|size,$at|
|00000ae0| 69 6d 65 2c 24 6d 74 69 | 6d 65 2c 24 63 74 69 6d |ime,$mti|me,$ctim|
|00000af0| 65 2c 0d 20 20 20 20 24 | 62 6c 6b 73 69 7a 65 2c |e,.    $|blksize,|
|00000b00| 24 62 6c 6f 63 6b 73 29 | 20 3d 20 73 74 61 74 28 |$blocks)| = stat(|
|00000b10| 27 62 27 29 3b 0d 69 66 | 20 28 24 69 6e 6f 20 3d |'b');.if| ($ino =|
|00000b20| 3d 20 30 29 20 7b 70 72 | 69 6e 74 20 22 6f 6b 20 |= 0) {pr|int "ok |
|00000b30| 32 30 5c 6e 22 3b 7d 20 | 65 6c 73 65 20 7b 70 72 |20\n";} |else {pr|
|00000b40| 69 6e 74 20 22 6e 6f 74 | 20 6f 6b 20 32 30 5c 6e |int "not| ok 20\n|
|00000b50| 22 3b 7d 0d 75 6e 6c 69 | 6e 6b 20 27 63 27 3b 0d |";}.unli|nk 'c';.|
|00000b60| 0d 63 68 64 69 72 20 24 | 77 64 20 7c 7c 20 64 69 |.chdir $|wd || di|
|00000b70| 65 20 22 43 61 6e 27 74 | 20 63 64 20 62 61 63 6b |e "Can't| cd back|
|00000b80| 20 74 6f 20 24 77 64 22 | 3b 0d 0d 75 6e 6c 69 6e | to $wd"|;..unlin|
|00000b90| 6b 20 27 63 27 3b 0d 69 | 66 20 28 60 6c 73 20 2d |k 'c';.i|f (`ls -|
|00000ba0| 6c 20 70 65 72 6c 20 32 | 3e 2f 64 65 76 2f 6e 75 |l perl 2|>/dev/nu|
|00000bb0| 6c 6c 60 20 3d 7e 20 2f | 5e 6c 2e 2a 2d 3e 2f 29 |ll` =~ /|^l.*->/)|
|00000bc0| 20 7b 20 20 23 20 77 65 | 20 68 61 76 65 20 73 79 | {  # we| have sy|
|00000bd0| 6d 62 6f 6c 69 63 20 6c | 69 6e 6b 73 0d 20 20 20 |mbolic l|inks.   |
|00000be0| 20 69 66 20 28 73 79 6d | 6c 69 6e 6b 28 22 54 45 | if (sym|link("TE|
|00000bf0| 53 54 22 2c 22 63 22 29 | 29 20 7b 70 72 69 6e 74 |ST","c")|) {print|
|00000c00| 20 22 6f 6b 20 32 31 5c | 6e 22 3b 7d 20 65 6c 73 | "ok 21\|n";} els|
|00000c10| 65 20 7b 70 72 69 6e 74 | 20 22 6e 6f 74 20 6f 6b |e {print| "not ok|
|00000c20| 20 32 31 5c 6e 22 3b 7d | 0d 20 20 20 20 24 66 6f | 21\n";}|.    $fo|
|00000c30| 6f 20 3d 20 60 67 72 65 | 70 20 70 65 72 6c 20 63 |o = `gre|p perl c|
|00000c40| 60 3b 0d 20 20 20 20 69 | 66 20 28 24 66 6f 6f 29 |`;.    i|f ($foo)|
|00000c50| 20 7b 70 72 69 6e 74 20 | 22 6f 6b 20 32 32 5c 6e | {print |"ok 22\n|
|00000c60| 22 3b 7d 20 65 6c 73 65 | 20 7b 70 72 69 6e 74 20 |";} else| {print |
|00000c70| 22 6e 6f 74 20 6f 6b 20 | 32 32 5c 6e 22 3b 7d 0d |"not ok |22\n";}.|
|00000c80| 7d 0d 65 6c 73 65 20 7b | 0d 20 20 20 20 70 72 69 |}.else {|.    pri|
|00000c90| 6e 74 20 22 6f 6b 20 32 | 31 5c 6e 6f 6b 20 32 32 |nt "ok 2|1\nok 22|
|00000ca0| 5c 6e 22 3b 0d 7d 0d 00 | 00 00 00 00 00 00 00 00 |\n";.}..|........|
|00000cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d00| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000d10| 00 00 2b 53 08 43 6f 6d | 70 2e 74 72 79 00 02 00 |..+S.Com|p.try...|
|00000d20| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|00000d30| 04 66 73 2e 74 80 02 00 | 00 00 54 45 58 54 4d 50 |.fs.t...|..TEXTMP|
|00000d40| 53 20 00 00 00 00 00 00 | 00 00 00 00 04 bf 00 00 |S ......|........|
|00000d50| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 a8 ee 29 4f 00 00 | 0c 27 00 00 01 ac 00 00 |....)O..|.'......|
|00000d80| 00 00 00 00 0b 00 00 00 | 2b 53 05 63 70 70 2e 74 |........|+S.cpp.t|
|00000d90| 02 00 00 00 54 45 58 54 | 4d 50 53 20 00 00 00 00 |....TEXT|MPS ....|
|00000da0| 00 00 00 00 00 00 3e 5a | 00 00 00 00 02 b6 00 00 |......>Z|........|
|00000db0| 04 00 00 00 00 00 00 00 | 00 00 00 00 a8 ee 29 45 |........|......)E|
|00000dc0| a8 ee 29 46 00 00 00 00 | 00 00 00 00 00 00 00 00 |..)F....|........|
|00000dd0| 00 00 00 00 00 00 00 00 | 00 00 2d 37 00 01 00 00 |........|..-7....|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 0b 00 |........|........|
|00000e00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e20| 00 00 00 00 00 00 00 06 | 00 03 00 8c 00 14 01 dd |........|........|
|00000e30| 02 3d 00 8c 00 14 01 dd | 02 3d a8 ee 29 50 00 00 |.=......|.=..)P..|
|00000e40| 0b 6e 00 00 0b 72 00 00 | 03 5b 01 00 00 00 00 1e |.n...r..|.[......|
|00000e50| 00 8c 00 14 01 dd 02 3d | 00 8c 00 14 01 dd 02 3d |.......=|.......=|
|00000e60| 00 00 03 5b 00 00 00 00 | 00 00 00 00 00 00 00 00 |...[....|........|
|00000e70| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 37 |.....n..|.n...>.7|
|00000e80| 42 04 13 d6 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |B.......|.>..MPSR|
|00000e90| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000ea0| 03 f0 ff ff 00 00 00 4c | 00 39 99 88 00 00 00 00 |.......L|.9......|
|00000eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+